home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 036a / katcal.zip / K0000007.PGM < prev    next >
Text File  |  1990-05-12  |  219b  |  13 lines
  1. * An example of looping register compares
  2. :INIT
  3.    mov r1, 8
  4.    mov r2, 1
  5.    mov r3, 0 
  6. :LOOP_for_printing!?
  7.    mov r5, r1
  8.    wd Reg 1 =
  9.    wd r1
  10.    sub r1, r2
  11.    jg r1, r3, loop_for_printing!?
  12. :DONE
  13.    halt